home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
cuj9204.zip
/
1004026A
< prev
next >
Wrap
Text File
|
1992-06-02
|
347b
|
17 lines
/* Listing 2b. Tests sin_4() */
typedef struct {
double X1, X2, X3, X4;
} ARG_D_4; /* vector 4 */
ARG_D_4 sin_4();
#include <math.h>
main(){
ARG_D_4 res;
res=sin_4(-2.,-1.,1.,2.);
printf(
"\t%.17g\t%.17g\n\t%.17g\t%.17g\n\t%.17g\t%.17g\n\t%.17g\t%.17g\n",
res.X1,sin(-2.),
res.X2,sin(-1.),
res.X3,sin(1.),
res.X4,sin(2.));
}